home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / gnu_smalltalk1_2.lha / IOCtl.st < prev    next >
Text File  |  1992-02-16  |  3KB  |  99 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23. "
  24. |     Change Log
  25. | ============================================================================
  26. | Author       Date       Change 
  27. | sbb         16 Feb 92      created summer 90.
  28. |
  29. "
  30.  
  31. CObject variableWordSubclass: #IOCtl
  32.     instanceVariableNames: ''
  33.     classVariableNames: ''
  34.     poolDictionaries: ''
  35.     category: 'C interface hacking'
  36. !
  37.  
  38. IOCtl comment:
  39. 'I am a gross hack.  I exist because there is no LargeInteger support
  40. currently in GNU Smalltalk, and certain IO operations need to perform
  41. IOCtls.  I fully expect to be removed in the forseeable future'!
  42.  
  43. !IOCtl class methodsFor: 'instance creation'!
  44.  
  45. new
  46.     ^self new: 1        "leave room for the pointer"
  47. !
  48.  
  49. voidType: typeChar index: intIndex
  50.     ^self new init: 16r20 type: typeChar index: intIndex size: 0
  51. !
  52.  
  53. readType: typeChar index: intIndex struct: cStruct
  54.     ^self readType: typeChar index: intIndex size: cStruct sizeof
  55. !
  56.  
  57. readType: typeChar index: intIndex size: nBytes
  58.     ^self new init: 16r40 type: typeChar index: intIndex size: nBytes
  59. !
  60.     
  61. writeType: typeChar index: intIndex struct: cStruct
  62.     ^self writeType: typeChar index: intIndex size: cStruct sizeof
  63. !
  64.  
  65. writeType: typeChar index: intIndex size: nBytes
  66.     ^self new init: 16r80 type: typeChar index: intIndex size: nBytes
  67. !
  68.  
  69. readWriteType: typeChar index: intIndex struct: cStruct
  70.     ^self readWriteType: typeChar index: intIndex size: cStruct sizeof
  71. !
  72.  
  73. readWriteType: typeChar index: intIndex size: nBytes
  74.     ^self new init: 16rC0 type: typeChar index: intIndex size: nBytes
  75. !!
  76.  
  77.  
  78. !IOCtl methodsFor: 'private'!
  79.  
  80. init: magic type: typeChar index: intIndex size: nBytes
  81.     | lowBits highBits addr |
  82.     lowBits _ intIndex bitOr: ((typeChar asciiValue) bitShift: 8).
  83.     highBits _ (magic bitShift: 8) bitOr: (nBytes bitAnd: 16rFF).
  84.     " compute the address of where the pointer that the CObject contains
  85.       lives."
  86.     addr _ (Memory addressOf: self) + 8.
  87.     Bigendian
  88.     ifTrue: [ ByteMemory at: addr + 0 put: (highBits bitShift: -8).
  89.           ByteMemory at: addr + 1 put: (highBits bitAnd: 16rFF).
  90.           ByteMemory at: addr + 2 put: (lowBits bitShift: -8).
  91.           ByteMemory at: addr + 3 put: (lowBits bitAnd: 16rFF) ]
  92.     ifFalse: [ ByteMemory at: addr + 3 put: (highBits bitShift: -8).
  93.           ByteMemory at: addr + 2 put: (highBits bitAnd: 16rFF).
  94.           ByteMemory at: addr + 1 put: (lowBits bitShift: -8).
  95.           ByteMemory at: addr + 0 put: (lowBits bitAnd: 16rFF) ]
  96. ! !
  97.  
  98.  
  99.